home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 22 / Mail_Madness_22_19xx_-_Side_A.d64 / anhang (.8.1_.8) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  57 lines
  1. 1 poke53280,.:poke53281,.:forp=11to12step.5:poke646,p
  2. 2 print"[147][151]                               lukian   "               :next:
  3. 3 print"[147][151][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  4. 4 print"[221]    [164][164][164][164]       [164][164][164][164][164][164]                 [221]";
  5. 5 print"[221]    [152] ,8 [151]- oder [152] ,8,1 [151]-file-anhang     [221]";
  6. 6 print"[221]    [163][163][163][163]       [163][163][163][163][163][163]                 [221]";
  7. 7 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
  8. 8 fort=1to2000:next:
  9. 9 printchr$(142)"[156][147][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][146]";
  10. 10 print"        [155] 1 [146][152]          [218]usatz ,8,1"
  11. 11 print"        [155] 2 [146][152]          [218]usatz ,8"
  12. 12 print"        [155] 3 [146][152]          [196]irectory"
  13. 13 print"[156][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  14. 14 printspc(15)chr$(14)"[146][206]amen des [198]iles eingeben,               das mit ";
  15. 15 print"einem [218]usatz ver-               sehen werden soll!":
  16. 16 geta$
  17. 17 ifa$="1"then gosub 22:goto9
  18. 18 ifa$="2"then gosub 32:goto9
  19. 19 ifa$="3"then gosub 37:goto9
  20. 20 goto 16
  21. 21 end
  22. 22 printchr$(142)"[147]            [150] anhang: ,8,1             ";
  23. 23 input"[146]    prg-name: ";a$
  24. 24 iflen(a$)>12thenprint"[145]                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:goto23
  25. 25 z$=chr$(160)+chr$(172)+chr$(56)+           chr$(172)+chr$(49 )+chr$(58)
  26. 26 open1,8,15,"r:"+a$+z$+"="+a$:close1
  27. 27 return
  28. 28 sys49152
  29. 29 open1,8,15:input#1,a,b$,c,d
  30. 30 close1:printa;b$;c;d
  31. 31 return
  32. 32 printchr$(142)"[147]            [150] anhang:  ,8              [146]";
  33. 33 input"     prg-name:";a$
  34. 34 z$=chr$(160)+chr$(172)+chr$(56)+           chr$(58 )
  35. 35 open1,8,15,"r:"+a$+z$+"="+a$:close1
  36. 36 return
  37. 37 poke53280,10:poke53281,2
  38. 38 printchr$(142)"[147][150]           directory einlesen           [155]";:fort=1to1500:next
  39. 39 open 1,8,0,"$":
  40. 40 get#1,a$,a$
  41. 41 get#1,a$,a$:
  42. 42 get#1,a$,b$:
  43. 43 a$=a$+chr$(0):b$=b$+chr$(0)
  44. 44 bz=asc(a$)+asc(b$)*256
  45. 45 if st<>0 then 51
  46. 46 print bz;
  47. 47 get#1,a$:if a$=""then 49
  48. 48 print a$;:goto 47
  49. 49 print:geta$:if a$=""then 41
  50. 50 get a$:if a$=""then 50
  51. 51 close1:fort=1to2500:next
  52. 52 print"[147][144]               (zum menu)               ";
  53. 53 print"                   [223][169]                   "
  54. 54 print"[155]  [185][185][185][185][185][185][185][185][185][185][185][190][164][164][164][164][164][164][164][164][164][164][164][164][188][146][185][185][185][185][185][185][185][185][185][185][185]  "
  55. 55 wait197,63:poke53280,.:poke53281,.:return
  56. 56 end:
  57.